home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v10n06.arc / DBLEAP.PRG < prev    next >
Text File  |  1991-03-06  |  657b  |  33 lines
  1.  
  2. * DBLEAP.PRG
  3. * Version of LEAPTST.PRG to demonstrate use of dBASE ISLEAP() Function
  4. * dBASE IV 1.1 tested.
  5. *
  6. CLEAR
  7. ? "Enter a YEAR (Between 100 - 2999) ..."
  8. ? "(Press ENTER alone to Exit)"
  9. ?
  10. DO WHILE .T.
  11.    ACCEPT "> " TO mt
  12.    IF ""=TRIM(mt)
  13.       RETURN
  14.    ENDIF
  15.    IF VAL(mt)>99 .AND. VAL(mt)<3000
  16.       ?? ">",mt,"is" + ;
  17.           IIF(IsLeap(CTOD("01/01/"+mt)),""," NOT"),"a Leap Year."
  18.    ENDIF
  19. ENDDO
  20. *
  21. * FUNCTION IsLeap(date)
  22. * Return .T. if date is
  23. * in a leap year, .F. if not
  24. * dBASE IV only version
  25. FUNCTION IsLeap
  26. PARAMETER D
  27. PRIVATE Y
  28. Y = TRIM(STR(YEAR(D)))
  29. RETURN ;
  30.  ( CTOD("02/29/"+Y) < CTOD("03/01/"+Y) )
  31.  
  32.  
  33.